projects / emacs.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 43c5ac8)
(html-tag-alist): within the <ADDRESS> tag
authorRichard M. Stallman <rms@gnu.org>
Thu, 8 Feb 1996 17:27:23 +0000 (17:27 +0000)
committerRichard M. Stallman <rms@gnu.org>
Thu, 8 Feb 1996 17:27:23 +0000 (17:27 +0000)
generated with an <HTML> tag, use `user-mail-address'.

lisp/textmodes/sgml-mode.el patch | blob | history

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index e4daa3f65dc02009489fedefa8d4054f3f1d31c3..e9f8324ae2cef8f394f8f7616106275e0884834a 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -957,7 +957,7 @@ This takes effect when first loading the library.")
               "<title>" (setq str (read-input "Title: ")) "</title>\n"
               "<body>\n<h1>" str "</h1>\n" _
               "\n<address>\n<a href=\"mailto:"
-              (user-login-name) ?@ (system-name)
+              user-mail-address
               "\">" (user-full-name) "</a>\n</address>"))
       ("i")
       ("ins")
Unnamed repository; edit this file 'description' to name the repository.